Creating Your Own America Online Web Pages/Creating Your Own America Online Web Pages.iso/JAWAI/JAVABEAT/JAVABEAT.EXE/JAVABEAT.DXR/00132.ls

Text File | 1996-03-16 | 522 b | 20 lines

on mouseDown
  global userVolumeLevel, soundLevelSprite
  set newLevel to userVolumeLevel
  set lastNewLevel to userVolumeLevel
  repeat while the stillDown
    set newLevel to integer((the mouseH - the left of sprite the clickOn) / 9)
    if newLevel < 0 then
      set newLevel to 0
    end if
    if newLevel > 9 then
      set newLevel to 9
    end if
    if newLevel <> lastNewLevel then
      setSoundLevelMeter(newLevel)
      set lastNewLevel to newLevel
    end if
  end repeat
  setSoundLevelMeter(newLevel)
end